Unit enregistrementClient;

Interface

Type 
	
		TClient = RECORD
			ID: INTEGER;
			nom: STRING;
			prenom: STRING;
			naissance: STRING;
			politesse: STRING;
			adresse: STRING;
			npa: STRING;
			localite: STRING;
			telephone: STRING;
		END;
		
		TTabClient = RECORD
			tabclient:ARRAY[1..100] of TClient;
			nbelement:INTEGER;
			DernierIDClient :INTEGER;
		END;
		
Procedure enregistrementClient(ID_Client:INTEGER; VAR colClient:TTabClient; client:TClient);

Implementation

Procedure enregistrementClient(ID_Client:INTEGER; VAR colClient:TTabClient; client:TClient);

VAR
	indiceClient : INTEGER;
	i:INTEGER;

BEGIN																		//On appelle l'enregistrement dans la fonction qui crée ou modifie un client 
	indiceClient:=12345;
	i:=indiceClient(ID_Client;colClient);
	IF(i<0) THEN
		colClient.nbelement:=colClient.nbelement+1;
		i:=colClient.nbelement;											// Le client n'existe pas encore on le creer
	colClient.tabclient[i]:=client;
END.
